home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / T-Z / VideoStakGold.cpt / VideoStakGold / VideoStak ◊ Don't Open 1 / background_3297.txt < prev    next >
Text File  |  1988-04-27  |  3KB  |  154 lines
  1. -- background: 3297 from stack: in
  2. -- bmap block id: 2068
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 149 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=12 top=309 right=322 bottom=42
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Home
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual dissolve fast
  23.   go Home
  24. end mouseUp
  25.  
  26.  
  27.  
  28.  
  29. -- part 153 (button)
  30. -- low flags: 00
  31. -- high flags: 2000
  32. -- rect: left=181 top=309 right=322 bottom=205
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 204
  37. -- text size: 9
  38. -- style flags: 0
  39. -- line height: 9
  40. -- part name: Edit OFF
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.  
  44.   get short name of me
  45.  
  46.   if IT is "Edit ON" then
  47.     set powerKeys to false
  48.     set userlevel to 5
  49.     show menubar
  50.     set name of me to "Edit OFF"
  51.     exit mouseUp
  52.   end if
  53.  
  54.   if IT is "Edit OFF" then
  55.     set powerKeys to true
  56.     set userlevel to 1
  57.     hide menubar
  58.     hide msg
  59.     set name of me to "Edit ON"
  60.     exit mouseUp
  61.   end if
  62.  
  63. end mouseUp
  64.  
  65.  
  66.  
  67.  
  68. -- part 181 (button)
  69. -- low flags: 80
  70. -- high flags: A004
  71. -- rect: left=145 top=127 right=174 bottom=190
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 20186 / 20186
  74. -- text alignment: 1
  75. -- font id: 223
  76. -- text size: 9
  77. -- style flags: 0
  78. -- line height: 9
  79. -- part name: Sort
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.  
  83.   -- BASICS
  84.   global sortby,tempUL
  85.   if sortBy is empty then
  86.     answer "Click on an item to sort by."
  87.     exit mouseUp
  88.   end if
  89.   set cursor to 4
  90.   send mouseUp to bkgnd btn "Cancel"
  91.   set the userLevel to tempUL
  92.   set textfont of me to keokuk
  93.   set textsize of me to 9
  94.   set textheight of me to 9
  95.  
  96.   -- DETERMINE SORT ORDER AND THEN SORT
  97.   if sortBy = "Minutes" or sortBy = "Year" then
  98.     sort ascending numeric by field sortBy
  99.   else
  100.     sort ascending text by field sortBy
  101.   end if
  102.   visual dissolve fast
  103.   go card 2
  104.   visual dissolve fast
  105.   go card 3
  106.   put empty into sortby
  107.  
  108. end mouseUp
  109.  
  110.  
  111.  
  112.  
  113. -- part 183 (button)
  114. -- low flags: 80
  115. -- high flags: A004
  116. -- rect: left=200 top=127 right=174 bottom=245
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 99 / 99
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: Cancel
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   set lockscreen to true
  128.   hide bkgnd btn number of me
  129.   hide bkgnd btn "Sort"
  130.   hide field "Sort"
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 201 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=0 top=0 right=342 bottom=512
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Back
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   global printBackTo
  150.   set cursor to 4
  151.   go to printBackTo
  152. end mouseUp
  153.  
  154.